home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / keymakr.exe / NAMEKEY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-08  |  1.6 KB  |  30 lines
  1. UNIT NameKey;
  2. (*********************************************************************)
  3. (*                     NameKey By C. Franz                           *)
  4. (*     Copyright (c) 1988, By Carl Franz & JFL Consulting            *)
  5. (*                                                                   *)
  6. (*                       KeyMaker V2.0                               *)
  7. (*                                                                   *)
  8. (*  Purpose: Create a database hash key from a string which          *)
  9. (*           contains a name.   None of this multiple field          *)
  10. (*           name crap (First Name, Last Name, Middle Init           *)
  11. (*           as seporate fields crap.  Just type it in as you        *)
  12. (*           would on an envelope.                                   *)
  13. (*                                                                   *)
  14. (*           Basicly it parses a string into words, throws           *)
  15. (*           out Buzz words like Mr., Mrs., Ms., etc. and            *)
  16. (*           creates a phonetic key from the rest of the             *)
  17. (*           name.  Last name, 5 characters, First Name,             *)
  18. (*           4 characters, Middle initial.   This phonetic           *)
  19. (*           key is then returned as a 10 byte STRING.               *)
  20. (*                                                                   *)
  21. (*********************************************************************)
  22.  
  23. INTERFACE
  24.  
  25. USES StrnTTT5, KeyTools;
  26.  
  27. FUNCTION NameToKey(name : string) : string;
  28. { Makes a Soundex key from a string containing a name }
  29.  
  30.